home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / NEWINT~1 / OWNERD~1 / DrawText.bas next >
BASIC Source File  |  1997-06-04  |  3KB  |  82 lines
  1. Attribute VB_Name = "DrawText"
  2. Type DRAWTEXTPARAMS
  3.     cbSize As Long
  4.     iTabLength As Long
  5.     iLeftMargin As Long
  6.     iRightMargin As Long
  7.     uiLengthDrawn As Long
  8. End Type
  9.  
  10. Type RECT
  11.         Left As Long
  12.         Top As Long
  13.         Right As Long
  14.         Bottom As Long
  15. End Type
  16.  
  17. Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  18. Public Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
  19. Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
  20. Public Declare Function FillRect Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
  21. Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
  22. Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
  23. Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wcmd As Long) As Long
  24. Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
  25. Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  26. Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hdc As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, lpDrawTextParams As DRAWTEXTPARAMS) As Long
  27. Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
  28. Public Declare Function CreateFontIndirect& Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT)
  29. Public Declare Function GetStockObject& Lib "gdi32" (ByVal nIndex As Long)
  30. Public Declare Function SetBkMode& Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long)
  31. Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  32. Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  33.  
  34. Public Const VK_NUMLOCK = &H90
  35. Public Const VK_INSERT = &H2D
  36. Public Const VK_CAPITAL = &H14
  37. Public Const WM_KEYDOWN = &H100
  38.  
  39. Public MyName As String
  40.  
  41. Public Const DT_TOP = &H0
  42. Public Const DT_LEFT = &H0
  43. Public Const DT_CENTER = &H1
  44. Public Const DT_RIGHT = &H2
  45. Public Const DT_VCENTER& = &H4
  46. Public Const DT_BOTTOM = &H8
  47. Public Const DT_WORDBREAK = &H10
  48. Public Const DT_SINGLELINE = &H20
  49. Public Const DT_EXPANDTABS = &H40
  50. Public Const DT_TABSTOP = &H80
  51. Public Const DT_NOCLIP = &H100
  52. Public Const DT_EXTERNALLEADING = &H200
  53. Public Const DT_CALCRECT = &H400
  54. Public Const DT_NOPREFIX = &H800
  55. Public Const DT_INTERNAL = &H1000
  56. Public Const DT_END_ELLIPSIS = &H8000
  57. Public Const DT_MODIFYSTRING = &H10000
  58. Public Const DT_PATH_ELLIPSIS = &H4000
  59. Public Const DT_RTLREADING = &H20000
  60. Public Const DT_WORD_ELLIPSIS = &H40000
  61.  
  62.  
  63. Public Const SYSTEM_FONT& = 13
  64.  
  65. Public Type LOGFONT
  66.     lfHeight As Long
  67.     lfWidth As Long
  68.     lfEscapement As Long
  69.     lfOrientation As Long
  70.     lfWeight As Long
  71.     lfItalic As Byte
  72.     lfUnderline As Byte
  73.     lfStrikeOut As Byte
  74.     lfCharSet As Byte
  75.     lfOutPrecision As Byte
  76.     lfClipPrecision As Byte
  77.     lfQuality As Byte
  78.     lfPitchAndFamily As Byte
  79.     lffacename As String * 32
  80. End Type
  81.  
  82.